home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / util / rexx / UKNews.lha / UKNews.ap next >
Text File  |  1996-09-30  |  1KB  |  84 lines
  1. /* Go UKNEWS     by Les Hewitt, September 1996 */
  2.  
  3. options results
  4.  
  5. call addlib('rexxsupport.library',0,-30,0)
  6. call addlib('rexxarplib.library',0,-30,0)
  7.  
  8. /* ==================  Variables ================= */
  9.  
  10. CaptureFile = 'RAM:UKNews'
  11. NumberOfStories = 200
  12.  
  13. /* ======== prepare and enter AutoPilot ========== */
  14.  
  15. dummy = postmsg(200,175,'Going OnLine!','AutoPilot')
  16.  
  17. call delay 60
  18. dummy = postmsg()
  19.  
  20.  
  21. if show('P','AP_REXX') then do
  22.   if show('P','HANDSON_REXX') then exit
  23. end
  24. else do
  25.   address command "run ap:AutoPilot"
  26.   address command 'waitforport AP_REXX'
  27. end
  28.  
  29. address AP_REXX
  30.  
  31. /* =============== Log on CIS ==================== */
  32.  
  33. logon
  34.  
  35. portup='no'
  36.  
  37. do forever
  38.   address command 'waitforport HANDSON_REXX'
  39.   if rc=0 then do
  40.      portup='yes'
  41.      leave
  42.   end
  43. end
  44.  
  45. if portup='yes' then do
  46.    address 'HANDSON_REXX'
  47.  
  48. call delay 100
  49.  
  50.  
  51.  
  52.  
  53. /* =============== Go UKNEWS ==================== */
  54.  
  55.  
  56.  
  57.     send 'go uknews'
  58.     waitfor 'Enter choice ! 30'
  59.     send '1'
  60.     waitfor 'Enter choice or <CR> for more ! 30'
  61.     send 'SET PAGED NO'
  62.     waitfor 'Enter choice or <CR> for more ! 30'
  63.  
  64. opencapture CaptureFile
  65.  
  66. do j=1 to NumberOfStories
  67.     send j
  68.     waitfor 'Last page ! 30'
  69.     if rc > 0 then do
  70.         MESSAGE "  **** Finished ****"
  71.         closecapture
  72.         send 'off'
  73.         endterm
  74.         exit
  75.     end
  76.  
  77. end
  78.  
  79. closecapture
  80. send 'off'
  81. endterm
  82. exit
  83.  
  84.